home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Herra / TIMWIN.ZIP / FILL.CMD < prev    next >
OS/2 REXX Batch file  |  1993-09-22  |  558b  |  26 lines
  1. ;fill  --  fills holes in objects
  2. ;syntax: /fill [#b]
  3. ;expects - binary image in specified bitplane #b (default: 1)
  4. ;          of active image
  5. ;Comment: Operation takes place in active image.
  6. ;         Seed bitplane (SB) is 1 lower than obj. bitplane (OB),
  7. ;         except when OB == 1: then SB = 2
  8. ;
  9. parms
  10. int obj_plane = 1
  11. endparms
  12. int seed_plane 
  13.  
  14. seed_plane = obj_plane - 1
  15. if seed_plane == 0
  16.   seed_plane = 2
  17. endif
  18.  
  19. keep obj_plane
  20. binv obj_plane
  21. bbord seed_plane 1
  22. lpr4 seed_plane obj_plane
  23. binv seed_plane
  24. bit seed_plane
  25. stop
  26.